perm filename TEST.DEM[MAC,LSP] blob sn#215144 filedate 1976-05-13 generic text, type T, neo UTF8

(DEFUN TEST NIL 
       (SETQ DEMONLIST
	     '((BILL (EQUAL DEMONFORM 'SCHERLIS)
		     (PRINT 'TENSE-HARVARD-MAN!!))
	       (SCHERLIS (EQUAL DEMONFORM 'SCHERLIS)
			 (PRINT 'THAT-ASSHOLE!)))))